home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Comms / Hytelnet6.7.1 Folder / Hytelnet 6.7.1 / Hytelnet 6.7.1 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-06-05  |  27KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2908</cardID>
  8.     <listID>3762</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- The FullHpopup XFCNis from ¬© F. Rinaldi - 1989,1990,1991-- it is available as freeware for none commercial stacks.-- The Fullsort XFCN is part of the Dartmouth XCMD's - 1988-1993-- it is available as freeware for none commercial stacks.-- This stack was created by C.A. Burchill.-- <burchil@cc.umanitoba.ca>on openstackglobal path,goback,flnme, progCheckset the lockscreen to trueif cd fld "netpath" is empty then -- check if the data files are not located in the same dir as this stackput the long name of this stack into longpathdelete char 1 to 7 of longpath -- this is the "stack "" part of the line.put getpath(longpath) & ":Hytelnet data:" into path  -- see the getpath--                                                      function below.  It use commonly used in this stackelseput cd fld "netpath"  into path -- get the location of the data files.--                                    The netpath fld is hidden and contains the path to the data filesend ifput empty into gobackput empty into flnmeput 0 into progCheckhide card field "help"put "START.TXT" into flnmemenuset -- Make the Hytelnet menu, delete unused menusfileman -- open a file and display its name in the filename cd fldsend mouseup to card button "done"set the lockscreen to falseend openstackon Closestacksend mouseup to cd button "done"hide card field "help"shrinker  -- check the freesize of the stack and compact if neccessary.reset menubarend closestackon suspendStackreset menubarend suspendStackon resumeStackreset menubarmenusetend resumeStackfunction getpath longpath  -- Returns the path name of this stack.put the number of characters in longpath into striplastrepeatput char striplast of longpath into testitdelete last char of longpathsubtract 1 from striplastif testit = ":" then exit repeatend repeatreturn (longpath)end getpathon menusethide menubarset userlevel to 5reset menubardelete menu "font"delete menu "Style"delete menu "objects"delete menu "tools"delete menuitem "new card" from menu "edit"delete menuitem "delete card" from menu "edit"delete menuitem "cut card" from menu "edit"delete menuitem "copy card" from menu "edit"delete menuitem "text style..." from menu "edit"delete menuitem "background" from menu "edit"delete menuitem "icon..." from menu "edit"delete last menuitem from menu "edit"  -- delete the lines left afterdelete last menuitem from menu "edit"  -- above itmes deleteddelete menuitem "protect stack..." from menu "file"delete menuitem "delete stack..." from menu "file"-- Create and fill the Hytelnet menucreate menu "Hytelnet"--  What the user sees in the menuput "Start,Go Back,Go for It,Configure,Copy site info,-,What is,Library catalogs,Other resources,Catalogs help,Glossary,Catalog Interfaces,Telnet Tips,About Hytelnet‚Ķ" into actmenuitems-- the handlers that Hypercard does when above items selected.put "Start,Go Back,Go for It,Configure,Copy site info,-,Favorite,Add,Delete,-,What is,Library catalogs,Other resources,Catalogs help,Glossary,Catalog Interfaces,Telnet Tips,About Hytelnet‚Ķ" into actmenuitems-- the handlers that Hypercard does when above items selected.put "Startcd,gback,csite,doconfig,cfield,,fav,fadd,fdelete,,WHATIS,Sites1,Sites2,Cathelp,Glossary,Catinter,Telhelp,abouthr" into menumessput actmenuitems into menu "Hytelnet" with menumsgs menumessput "Repeat Find" after menu "Go" with menumsgs "rfind"-- add command characters to menu items.set commandChar of menuItem "Start" of menu "Hytelnet" to Sset commandChar of menuItem "go back" of menu "Hytelnet" to Bset commandChar of menuItem "Go for It" of menu "Hytelnet" to Gset commandchar of menuitem "Configure" of menu "Hytelnet" to Nset commandChar of menuItem "Favorite" of menu "Hytelnet" to Vset commandchar of menuitem "Add" of menu "Hytelnet" to Adisable menuitem "Delete" of menu "Hytelnet"disable menuitem "Repeat Find" of menu "Go"show menubarend menuseton gbackglobal path,goback,flnmeput cd fld "filename" into bkfiledelete the last item of goback -- this is the file you are currently looking at.if goback is empty then put "START.TXT" into goback -- if you have deleted to many thingsput the last item of goback into flnmebk -- flnmebk temp. variable for file name.put path & flnmebk into flnme -- hd40if flnme is "Favorite" thenenable menuitem "Delete" of menu "Hytelnet"elsedisable menuitem "Delete" of menu "Hytelnet"end ifif there is a file flnme then  -- check if the file really exits in default directory..-- the next set of lines are used in many places and a single-- function should be used called instead. 1put the last item of goback into cd fld "filename"open file flnmeread from file flnme until emptyget stripper(it)put it into cd fld "data"close file flnmeset the scroll of cd fld "data" to 0find "<" & bkfile in cd fld "data"if the result is empty thenput the foundchunk into bkfileadd 1 to word 2 of  bkfileselect bkfileend ifelseput path & (char 1 to 3 of flnmebk) & ":" & flnmebk into flnmeif there is a file flnme then  -- check if the file really exits.put the last item of goback into cd fld "filename"open file flnme  -- 2read from file flnme until emptyget stripper(it)put it into cd fld "data"close file flnmeset the scroll of cd fld "data" to 0find "<" & bkfile in cd fld "data"if the result is empty thenput the foundchunk into bkfileadd 1 to word 2 of  bkfileselect bkfileend ifelse-- when it is not found in default dir, or in the subdir then say so.answer "File " & quote & flnmebk & quote & " not found"end ifend ifend gbackon startcd -- This is also activated by a button on the cd.-- Open and display the START.TXT fileglobal path,goback,flnmeif cd fld filename is not "Start.txt" thenput "START.TXT" into flnmefileman  -- see handler belowend ifend startcdon cfield -- copy the whole fld to the clipboard.select char 1 to (the number of chars in cd fld "data") of cd fld "data"domenu "Copy Text"select char 0 of cd fld "data"end cfieldon csite -- used in various places to check if telnet can be launched from the fld in question.  ie is the telnet there and is it followed by an ip number or an internet namefind "telnet" in cd fld "data"if the result is not empty thenfind "TN3270" in cd fld "data"if the result is empty thenput the foundchunk into fchunkput "tn3270" into prognameelseanswer "Location not available." -- Telnet, TN3270exit csiteend ifelseput the foundchunk into fchunkput "telnet" into prognameend ifget goforit(progname,fchunk) -- see stack script for goforit functionend csiteon doconfigif the visible of card field "configuration" is false thensend mouseup to card button "configure"elsesend mouseup to card button "done"end ifend doconfigon favglobal path,flnme,gobackput "Favorite" into flnmeif there is a file path & flnme thenfilemanelseftestfilemanend ifend favon faddglobal pathif there is not a file path & "Favorite" thenftestend ifput "<" & card field filename & ">  " into favnmeAsk "Add file name to Favorite list:" with favnmeput it into favaddif favadd is empty then exit faddif ">" is not in favadd then put favnme & favadd into favaddopen file path & "Favorite"read from file path & "Favorite" until emptyWrite favadd & return to file path & "Favorite"close file path & "Favorite"end faddon ftestglobal pathopen file path & "Favorite"Write "                  Favorite Sites:" & return & return to file path & "Favorite"close file path & "Favorite"end fteston fdeleteglobal pathif the selectedline is empty thenanswer "Select a site to delete with using the up/down arrow keys"exit fdeleteend ifdelete line (word 2 of the selectedline) of card field dataopen file path & "Favorite"write card field data to file path & "Favorite"close file path & "Favorite"end fdeleteon WHATIS  -- Open the WHATIS file and display itglobal path,goback,flnmeput "WHATIS" into flnmefilemanend WHATISon SITES1  -- Open and display SITES1global path,goback,flnmeput "SITES1" into flnmefilemanend SITES1on SITES2  -- Open and display SITES2global path,goback,flnmeput "SITES2" into flnmefilemanend SITES2on cathelpglobal path,goback,flnmeput "OP000" into flnmefilemanend cathelpon GLOSSARYglobal path,goback,flnmeput "GLOSSARY" into flnmefilemanend GLOSSARYon catinterglobal path,goback,flnmeput "SYS000" into flnmefilemanend catinteron telhelpglobal path,goback,flnmeput "TELNET" into flnmefilemanend telhelpon domenu whatif what is "find..." thenfindsiteelsepass domenuend ifend domenuon findsiteglobal path,flnme,foundstuffask "Seach database for: "put it into finditif findit is empty then exit findsiteset lockscreen to trueset lockmessages to trueput getdir(path,"D") into dirlistput the number of lines in dirlist into rptnum-- put empty into card field dataput empty into foundstuffrepeat with x=1 to rptnumset cursor to busyput path & line x of dirlist & line x of dirlist into npathdelete last char of npathif last char of npath is "0" then delete last char of npathput "000" after last char of npathrepeat with y=1 to 7if y=1 then put empty into suffixelse if y=2 then put "com" into suffixelse if y=3 then put "con" into suffixelse if y=4 then put "k12" into suffixelse if y=5 then put "law" into suffixelse if y=6 then put "med" into suffixelse if y=7 then put "pub" into suffixput npath & suffix into npath2if there is a file npath2 thenopen file npath2read from file npath2 until emptyget stripper(it)put it into cd fld "data"close file npath2repeatfind string findit in card field dataif the result is empty thenput line (word 2 of the foundline) of card field data into foundtempif foundtemp contains "<" then put foundtemp & return after last char of foundstuffdelete line 1 to (word 2 of the foundline) of card field dataelseexit repeatend ifend repeatend ifend repeatend repeatif foundstuff is empty thenput card field filename into flnmefilemananswer "No matches"elseput "                   Found sites" & return & return into card field dataput "Found" into card field filenameput foundstuff after last char of card field dataenable menuitem "Repeat Find" of menu "Go"end ifset lockscreen to falseset lockmessages to falseend findsiteon rfindglobal path,flnme,foundstuffif foundstuff is not empty thenput "                   Found sites" & return & return into card field dataput "Found" into card field filenameput foundstuff after last char of card field dataend ifend rfindon abouthr -- Dispaly about dialog, which will all you to display the--          help fld.answer "Hytelnet 6.7 was written by Peter Scott. HyperCard front end by Charles Burchill." & return & "Version 6.7.1, May 20,1996" with "Help" or "OK"if it is "Help" then helpout -- show cd fld "help"end abouthron helphelpoutend helpon helpoutset the scroll of cd fld "help" to 0show cd fld "help"end helpouton fileman  -- file managerglobal path,goback,flnmeif flnme is "Favorite" thenenable menuitem "Delete" of menu "Hytelnet"elsedisable menuitem "Delete" of menu "Hytelnet"end ifput flnme into sflnme -- temp variable sflnme contains the filenameput path&sflnme into flnme  -- Make flnme the whole path to the file--                             Path contains the path to the Hytelnet Data folder--                             Created at startup, or by the network button.if there is a file flnme then  -- check if the file really exits in the Hytelnet data folder..if goback is empty thenput sflnme into gobackelseput "," & sflnme after last char of gobackend ifput sflnme into cd fld "filename"  -- show the current file name.-- the following is used in many places and should be put into a function.-- it opens the file and displays it in the data fld.open file flnme  -- 3read from file flnme until emptyget stripper(it)put it into cd fld "data"close file flnmeset the scroll of cd fld "data" to 0-- Check the size of goback, keep it at twenty itemsif the number of items in goback > 20 then -- make sure goback does not get to big, this could crash HC, more important the pop-up menu will work better.delete the first item of gobackend ifselectfstelse-- In most versions of hytelnet the data files are kept in sub-dirs.-- If the file is not in the Hytelnet data folder check the  sub dir.put path & (char 1 to 3 of sflnme) & ":" & sflnme into flnme -- add sub-dir name to search path for file-- The rest of this script is the same as above (before else).if there is a file flnme then  -- check if the file really exits.if goback is empty thenput sflnme into gobackelseput "," & sflnme after last char of gobackend ifput sflnme into cd fld "filename"open file flnme  -- 4read from file flnme until emptyget stripper(it)put it into cd fld "data"close file flnmeset the scroll of cd fld "data" to 0if the number of items in goback > 20 then -- make sure goback does not get to big, this could crash HC, more important the pop-up menu will work better.delete the first item of gobackend ifselectfstelseanswer "File " & quote & sflnme & quote & " not found." & return &  "If your data files are not located in the same directory as this stack you will have to check the network button in the configuration dialog."select char 0 of cd fld "data"end ifend ifend filemanon selectfstput the number of lines in cd fld "data" into upperput 1 into itemline-- get checkit()-- if it is empty then--put (word 2 of the foundline) into itemlinerepeat with x = itemline to 15get line x of cd fld "data"put offset("<",it) into fstbracketput offset(">",it) into bracketif fstbracket > 0 thenif (bracket - fstbracket) < 3 thenadd 2 to bracketelseif itemline ‚↠upper then select character (fstbracket+1) to (bracket-1) of line x in cd fld "data"exit repeatend ifend ifend repeat-- end ifend selectfstfunction stripper itif the first char of line 2 of it is numtochar(10) thenput the number of lines of it into rptnumrepeat with x = 2 to rptnumif x > 100 then set cursor to busyif the first char of line x of it is numtochar(10) thendelete the first char of line x of itend ifend repeatreturn itelsereturn itend ifend stripperon Shrinkerif (the freesize of this stack) > (0.15 * the size of this stack) thenput "compacting stack,  Please wait"domenu "compact stack"hide the message boxend ifend Shrinkeron arrowkey directionglobal flnmeput 1 into lowerput the number of lines in cd fld "data"+1 into upperset cursor to watchif direction is "down" thenif the selectedline is empty thenput lower into bracketget checkit()if it is not empty thenexit arrowkeyelseput (word 2 of the foundline) into itemlineend ifelseput ((word 2 of the selectedline)+1) into itemlineend ifrepeat with x = itemline to upperget line x of cd fld "data"put offset("<",it) into fstbracketput offset(">",it) into bracketif fstbracket > 0 thenif (bracket - fstbracket) < 3 thenadd 2 to bracketelseif itemline ‚↠upper then select character (fstbracket+1) to (bracket-1) of line x in cd fld "data"exit repeatend ifend if--  add 1 to bracketend repeatend ifif direction is "up" thenif word 4 of the selectedchunk = 0 then put empty into the selectedlineif the selectedline is empty thenput upper into itemlineget checkit()if it is not empty thenexit arrowkeyend ifelseput ((word 2 of the selectedline)-1) into itemlineend ifrepeat with x = itemline down to 1get line x of cd fld "data"put offset("<",it) into fstbracketput offset(">",it) into bracketif fstbracket > 0 thenif (bracket - fstbracket) < 3 thenadd 2 to bracketelseif x ‚↠lower then select character (fstbracket+1) to (bracket-1) of line x in cd fld "data"exit repeatend ifend ifend repeatend ifif direction is "right" thenput the selectedtext into flnmeif flnme is not empty then filemanend ifif direction is "left" thengbackend ifend arrowkeyfunction checkit -- for up and down handlers that do not have a current--                item selected check if there is an item by looking--                for a < bracket.find "<" in cd fld "data"put the result into itreturn itend checkitfunction goforit progname,fchunk -- progname and fchunk are passed from--                                data fld, or goforit button.--                                progname contains telnet, or tn3270--                                fchunk is the location of the above word.put ((word 4 of fchunk)+4) into IPtest  -- IPtest will be used to check if--                                         the string after progname is--                                         an internet address.repeatput char iptest of cd fld "data" into chartestif chartest >= numtochar(33) then -- chartest is not return, this checks if it is the end of a line.add 1 to IPtestelse if chartest = numtochar(32) then -- if you found a space, end of stringput char iptest+1 of cd fld "data" into chartest2-- check if next string is a port number, if it is continue.if (chartest2>=1 and chartest2 <=9) thenadd 1 to IPtestelse  -- if there is no port number then continue.subtract 1 from IPtestexit repeatend ifelsesubtract 1 from IPtestexit repeatend ifend repeatput ((word 4 of fchunk)+1) into fstcharput char fstchar to IPtest of cd fld "data" into ipgo  -- get the internet namerepeatif the first char of ipgo = " " then delete the first char of ipgoif the last char of ipgo = "." then delete the last char of ipgoelse exit repeatend repeatif ipgo contains "." then -- All internet names contian a "." if it does not--                       contain one then it is not an appropriate name.select char ((word 2 of  fchunk)) to IPtest of cd fld "data"answer progname & " to " & return & quote & ipgo & quote with "Copy" or "No" or "Yes"if it is "yes" thenget gotelnet(progname,ipgo)  -- see function below.else if it is "Copy" thenselect char (fstchar+1) to IPtest of cd fld "data"domenu "Copy text"end ifselect char 0 of cd fld "data"elseanswer "Location not available."end ifend goforitfunction gotelnet progname,ipgoglobal path, progCheckput convert(progname) into prognameput convert(ipgo) into ipgo-- --Hooks for turbo gopherIf the hilite of card button "use Turbo Gopher" is true thenif card field "filename" contains "GOP" then put "gopher" into prognameend ifif the hilite of card button "serial connection" is true thenput word two of card field "port" into prtput progname & " " & ipgo & return into jumpget serialhandler("put",prt,jump)if it is not empty thenanswer "There is a problem with the serial connection." & return & return & itend ifelse if progname is "telnet" then-- Get the location of Telnet from the config fld.  If it is not-- in the location specified please find it.put cd fld "telpath" into telpathlocif there is not a file telpathloc thenanswer file "Where is location of Telnet" of type "APPL"if it is not empty thenput it into cd fld "telpath"put cd fld "telpath" into telpathlocelseexit gotelnetend ifend if-- check if there is a telnet config file at the location specified int-- the config fld.  If there is not find it, or exit.put cd fld "telconfig" into configif there is not a file config thenanswer file "Locate telnet settings file " & quote & "Telnet.cfg" & quote of type "CONF"if it is not empty thenput it into cd fld "telconfig"put cd fld "telconfig" into configelseexit gotelnetend ifend if--  if there is a file config & there is a file telpathloc thenopen file configwrite "name= " & quote & ipgo & quote & return to file configwrite "host= " & quote & ipgo & quote & return to file configclose file config-- check if you are running system 7 and then ope the telnet-- config file by double clicking on it, or if system 6 then-- open in the normal way.if the systemVersion >= 7 thenset itemDelimiter to colonput last item of config into congifiledelete last item of configset itemDelimiter to commafinderevents "open", config, congifileelse-- The progcheck variable is set if telnet has been opened beforeif progCheck is 0 thenopen config with telpathlocadd 1 to progCheckelseanswer "If Telnet is still running in the background. " & return & return &"‚Ä¢ If the Connections menu remains grey," & return & ¬¨"   select Load Set... from the File menu." & return & return & "‚Ä¢ Then double click on the telnet.cfg file" & return &¬¨"   in the Hytelnet folder."open config with telpathlocend ifend ifelse  if progname is "TN3270" thenput cd fld "tnpath" into tnpathloc-- check if there is a TN3270 program at the location specified in the-- configuragtion fld.  If ther is no program go and find it.if there is not a file tnpathloc thenanswer file "Where is location of TN3270" of type "APPL"if it is not empty thenput it into cd fld "tnpath"put cd fld "tnpath" into tnpathlocelseexit gotelnetend ifend if-- check if there is a TN3270 config file at the location specified int-- the config fld.  If there is not find it, or exit.put cd fld "tnconfig" into configif there is not a file config thenanswer file "Locate TN3270 settings file " & quote & "TN3270.cfg" & quote of type "GFTS"if it is not empty thenput it into cd fld "tnconfig"put cd fld "tnconfig" into configelseexit gotelnetend ifend if--  if there is a file config & there is a file tnpathloc thenopen file config-- the next line is a conifig file for TN3270 with site name added (ipgo).write "0 40 80 20 30 10 80 0 " & ipgo & " 2 1 15 1 1 1 23 0 1 ffff ffff ffff fc00 f37d 52f ffff 7a5d 9f8e 0 c42f eaff 1f21 b793 1431 dd6b 8c2 6a2 4eba 6aea dd6b 0 0 0 2a00 2a00 2a00 24 9 0 1 0 0 4eba 6aea dd6b 1 1 0 default 1 English_(U.S.) 9 80 24 80 System_Alert_Sound 2 ff ab" & return to file configclose file config-- Check the system number, if it is system 7 then open-- the config file by double clicking on it.if the systemVersion >= 7 thenset itemDelimiter to colonput last item of config into congifiledelete last item of configset itemDelimiter to commafinderevents "open", config, congifileelseif progCheck is 0 thenopen config with tnpathlocadd 1 to progcheckelseanswer "If TN3270 was left running in the background. " & return & return &"‚Ä¢ If the Connections menu remains grey," & return & ¬¨"   select Load Set... from the File menu." & return & return & "‚Ä¢ Then double click on the TN3270.cfg file" & return &¬¨"   in the Hytelnet folder."open config with tnpathlocend ifend ifelse if progname is "gopher" thenput cd fld "gppath" into gppathloc-- check if there is a gopher program at the location specified in the-- configuragtion fld.  If ther is no program go and find it.if there is not a file gppathloc thenanswer file "Where is location of Turbo Gopher" of type "APPL"if it is not empty thenput it into cd fld "gppath"put cd fld "gppath" into tnpathlocelseexit gotelnetend ifend ifput cd fld "gpconfig" into configif there is not a file config thenanswer file "Locate gopher file " & quote & "gopher.cfg" & quote of type "BKMK"if it is not empty thenput it into cd fld "gpconfig"put cd fld "gpconfig" into configelseexit gotelnetend ifend if--  if there is a file config & there is a file tnpathloc thenopen file config-- the next line is a conifig file for TN3270 with site name added (ipgo).write "1Open " & ipgo & tab & "" & tab & ipgo & tab & "70" & tab & "+" & return to file configclose file config-- Check the system number, if it is system 7 then open-- the config file by double clicking on it.if the systemVersion >= 7 thenset itemDelimiter to colonput last item of config into congifiledelete last item of configset itemDelimiter to commafinderevents "open", config, congifileelseif progCheck is 0 thenopen config with tnpathlocadd 1 to progcheckelseanswer "If Gopher was left running in the background. " & return & return &"‚Ä¢ If the Connections menu remains grey," & return & ¬¨"   select open bookmark file... from the File menu." & return & return & "‚Ä¢ Then double click on the TN3270.cfg file" & return &¬¨"   in the Hytelnet folder."open config with tnpathlocend ifend ifend ifend gotelneton keydown whatglobal flnmeif the visible of card field "help" is true thenhide card field "help"exit keydownend ifif the hilite of cd button id 13 is true then -- "Character jump"-- What to do if you get an arrow key?  Pass it to the arrowkey handler.if what is "" or what is "" or what is "" or what is "" then pass keydown-- if what is "" then answer up-- if what is "" then answer down-- if what is "" then answer right-- if what is "" then answer leftif what is return and the selectedchunk is not empty thenput the selectedtext into flnmeif flnme is not empty  thenfilemanend ifelse if what is return and the selectedchunk is empty thenif the visible of card field "configuration" is false then csiteelse send mouseup to card button doneelse if what is "+" thenput the scroll of card field data into scrllset the scroll of card field data to scrll+220else if what is "-" thenput the scroll of card field data into scrllset the scroll of card field data to scrll-220elseput "> " & what into findtxtfind string findtxtif the result is empty thenput (word 2 of the foundchunk - 1) into lastcharput lastchar-1 into firstcharrepeatif char firstchar of cd fld "data" is "<" then exit repeatsubtract 1 from firstcharif (lastchar-firstchar) > 30 then exit keydownend repeatselect char firstchar+1 to lastchar of cd fld "data"elsepass keydownend ifend ifelsepass keydownend ifend keydownfunction convert stringset the lockmessages to trueset lockscreen to trueput the number of chars in string into lengthput empty into retstringrepeat with x= 1 to lengthput char x of string into testif chartonum(test) > 64 and chartonum(test) < 91 thenput numtochar(chartonum(test) + 32) into testend ifput test after last char of retstringend repeatreturn retstringset the lockmessages to falseset lockscreen to falseend convert</script>
  17.     <background id="2588" file="background_2588.xml" name="" />
  18.     <card id="2908" file="card_2908.xml" marked="false" name="" owner="2588" />
  19. </stack>
  20.